
*===============================================================================
* Title: Two Levels - Coding open-ended questions
* Date: Jan 23 2017
* Author: Agatha
*===============================================================================

*-------------------------------------------------------------------------------
* Die Antworten auf die offenen Fragen zu den Wahlgründen zur Bundestagswahl
* und zur Niedersachsenwahl wurden seperat veröffentlicht. Über die lfdn 
* wurden die Anworten zusammengespielt und um die bereits kodierte
* Wahlentscheidung bei der BTW (wabsfull8) bzw. der LTW (NIwahl9) ergänzt.
* Zur Kodierung der offenen Antworten wurde das GLES-Kodierschema Wahlgrund
* Bundestagswahl um Gründe mit Landesbezug erweitert, siehe Appendix.
* In dem zusammengespielten Datensatz sind nur Wähler, die einen
* Wahlgrund angegeben haben.
*-------------------------------------------------------------------------------

use "L:\GLES\Gemeinsame Forschung\Two Levels\open ended questions\Wahlgrund_LTW_NI_offen.dta", clear

*** gleiche Wahlentscheidung auf Bund- und Landesebene
gen gleichwahl=0
replace gleichwahl=1 if wabsfull8==NIwahl9
fre gleichwahl
lab var gleichwahl "Gleiche Wahlentscheidung auf beiden Ebenen"

* Arenenspezifische Begründung bei der Landtagswahl
gen arena=0 if !missing(wg_ltw1)
replace arena=1 if wg_ltw1>1000 & !missing(wg_ltw1)
replace arena=1 if wg_ltw2>1000 & !missing(wg_ltw2)
replace arena=1 if wg_ltw3>1000 & !missing(wg_ltw3)
fre arena
lab var arena "Arenenspezifische Begründung bei der Landtagswahl"


* gleiche Begründung auf beiden Ebenen
gen gleichgrund=0 if !missing(wg_ltw1) & !missing(wg_btw1)
replace gleichgrund=1 if wg_btw1==wg_ltw1 & !missing(wg_ltw1) & !missing(wg_btw1)
replace gleichgrund=1 if wg_btw1==wg_ltw2 & !missing(wg_ltw2) 
replace gleichgrund=1 if wg_btw1==wg_ltw3 & !missing(wg_ltw3) 
replace gleichgrund=1 if wg_btw2==wg_ltw1 & !missing(wg_ltw1) & !missing(wg_btw2)
replace gleichgrund=1 if wg_btw2==wg_ltw2 & !missing(wg_ltw2) & !missing(wg_btw2)
replace gleichgrund=1 if wg_btw2==wg_ltw3 & !missing(wg_ltw3) & !missing(wg_btw2)
replace gleichgrund=1 if wg_btw3==wg_ltw1 & !missing(wg_ltw1) & !missing(wg_btw3)
replace gleichgrund=1 if wg_btw3==wg_ltw2 & !missing(wg_ltw2) & !missing(wg_btw3)
replace gleichgrund=1 if wg_btw3==wg_ltw3 & !missing(wg_ltw3) & !missing(wg_btw3)
lab var gleichgrund "gleiche Begründung Wahlentscheidung auf beiden Ebenen"

fre gleichgrund
list btwgrund ltwgrund if gleichgrund==1


*** Tabelle 1: Landes- und bundespolitische Gründe für die Wahlentscheidung bei der niedersächsischen Landtagswahl
fre gleichgrund
tab gleichgrund gleichwahl,  row //56,6 und 81,4
fre arena
tab arena gleichwahl,  row //87,5 und 71,7



*** Häufigste Art des Wahlgrunds LTW
* NI: Kandidaten
gen Lgr_cand=1 if wg_ltw1>1599 & wg_ltw1<1700
replace Lgr_cand=1 if wg_ltw2>1599 & wg_ltw2<1700
replace Lgr_cand=1 if wg_ltw3>1599 & wg_ltw3<1700

* NI: Regierungszufriedenheit, Kontinuität
gen Lgr_reg=1 if inlist(wg_ltw1, 1301,1303,1304,1305)
replace Lgr_reg=1 if inlist(wg_ltw2, 1301,1303,1304,1305)
replace Lgr_reg=1 if inlist(wg_ltw3, 1301,1303,1304,1305)

* NI: Strategisches Wählen, Koalitionen
gen Lgr_strat=1 if inlist(wg_ltw1, 1541,1542,1543)
replace Lgr_strat=1 if inlist(wg_ltw2, 1541,1542,1543)
replace Lgr_strat=1 if inlist(wg_ltw3, 1541,1542,1543)

* NI: Protestwahl
gen Lgr_unzuf=1 if inlist(wg_ltw1, 1532,1533,1534,1535,1536, 1307, 1399)
replace Lgr_unzuf=1 if inlist(wg_ltw2,1532,1533,1534,1535,1536, 1307, 1399)
replace Lgr_unzuf=1 if inlist(wg_ltw3, 1532,1533,1534,1535,1536, 1307, 1399)

* NI: Sachthemen
gen Lgr_policy=1 if wg_ltw1>1000 & wg_ltw1<1200
replace Lgr_policy=1 if wg_ltw2>1000 & wg_ltw2<1200
replace Lgr_policy=1 if wg_ltw3>1000 & wg_ltw3<1200

* NI: Übereinstimmung mit Positionen der Partei
gen Lgr_pos=1 if wg_ltw1>1520 & wg_ltw1<1523
replace Lgr_pos=1 if wg_ltw2>1520 & wg_ltw2<1523
replace Lgr_pos=1 if wg_ltw3>1520 & wg_ltw3<1523

* NI: Sympathie, Bindung
gen Lgr_pid=1 if wg_ltw1>1500 & wg_ltw1<1514
replace Lgr_pid=1 if wg_ltw2>1500 & wg_ltw2<1514
replace Lgr_pid=1 if wg_ltw3>1500 & wg_ltw3<1514


list ltwgrund wg_ltw1 wg_ltw2 wg_ltw3 if arena==1 & ///
	Lgr_cand!=1 & Lgr_reg!=1 & Lgr_strat!=1 & Lgr_unzuf!=1 & Lgr_polic!=1 & Lgr_pos!=1




*** Tabelle 2: Häufigste Art des Wahlgrunds für die Wahlentscheidung bei der 
*** niedersächsischen Landtagswahl
fre Lgr_cand if arena==1
fre Lgr_reg if arena==1
fre Lgr_strat if arena==1
fre Lgr_unzuf if arena==1
fre Lgr_policy if arena==1
fre Lgr_pos if arena==1
fre Lgr_pid if arena==1



*** Häufigste nicht-arenenspezifische Begründungskategorien

* Bund: PID, Gewohnheit
gen Bgr_pid=1 if wg_ltw1>500 & wg_ltw1<514
replace Bgr_pid=1 if wg_ltw2>500 & wg_ltw2<514
replace Bgr_pid=1 if wg_ltw3>500 & wg_ltw3<514


* Bund: Übereinstimmung mit Positionen der Partei
gen Bgr_pos=1 if wg_ltw1>520 & wg_ltw1<523
replace Bgr_pos=1 if wg_ltw2>520 & wg_ltw2<523
replace Bgr_pos=1 if wg_ltw3>520 & wg_ltw3<523

* Bund: Bauchentscheidung, weiß nicht
gen Bgr_bauch=1 if inlist(wg_ltw1, 551,552)
replace Bgr_bauch=1 if inlist(wg_ltw2, 551,552)
replace Bgr_bauch=1 if inlist(wg_ltw3, 551,552)

* Bund: Protestwahl/Unzufriedenheit
gen Bgr_unzuf=1 if inlist(wg_ltw1, 532, 533, 534, 535, 536, 307, 399)
replace Bgr_unzuf=1 if inlist(wg_ltw2, 532, 533, 534, 535, 536, 307, 399)
replace Bgr_unzuf=1 if inlist(wg_ltw3, 532, 533, 534, 535, 536, 307, 399)

* Bund: Sachthemen
gen Bgr_policy=1 if wg_ltw1>1000 & wg_ltw1<1200
replace Bgr_policy=1 if wg_ltw2>1000 & wg_ltw2<1200
replace Bgr_policy=1 if wg_ltw3>1000 & wg_ltw3<1200

* Bund: Kandidaten
gen Bgr_cand=1 if wg_ltw1>599 & wg_ltw1<700
replace Bgr_cand=1 if wg_ltw2>599 & wg_ltw2<700
replace Bgr_cand=1 if wg_ltw3>599 & wg_ltw3<700

* Bund: Regierungszufriedenheit, Kontinuität
gen Bgr_reg=1 if inlist(wg_ltw1, 301,303,304,305)
replace Bgr_reg=1 if inlist(wg_ltw2, 301,303,304,305)
replace Bgr_reg=1 if inlist(wg_ltw3, 301,303,304,305)

* Bund: Strategisches Wählen, Koalitionen
gen Bgr_strat=1 if inlist(wg_ltw1, 541, 542, 543)
replace Bgr_strat=1 if inlist(wg_ltw2, 541, 542, 543)
replace Bgr_strat=1 if inlist(wg_ltw3, 541, 542, 543)

list ltwgrund wg_ltw1 wg_ltw2 wg_ltw3 if arena==0 & ///
	Bgr_pos!=1 & Bgr_pid!=1

*===============================================================================

fre Bgr_pid if arena==0
fre Bgr_pos if arena==0
fre Bgr_bauch if arena==0
fre Bgr_cand if arena==0
fre Bgr_unzuf if arena==0
fre Bgr_strat if arena==0
fre Bgr_policy if arena==0
fre Bgr_reg if arena==0

*===============================================================================

fre Bgr_pid if gleichgrund==1
fre Bgr_pos if gleichgrund==1
fre Bgr_bauch if gleichgrund==1
fre Bgr_cand if gleichgrund==1
fre Bgr_unzuf if gleichgrund==1
fre Bgr_strat if gleichgrund==1
fre Bgr_policy if gleichgrund==1
fre Bgr_reg if gleichgrund==1




* Stephan Weil
fre Lgr_cand if wg_ltw1==1640 | wg_ltw2==1640 | wg_ltw3==1640 // 32
 
* Bernd Althusmann
fre Lgr_cand if wg_ltw1==1620 | wg_ltw2==1620 | wg_ltw3==1620 // 3

* Angela Merkel
fre Lgr_cand if wg_ltw1==620 | wg_ltw2==620 | wg_ltw3==620 // 0

drop wabsfull8 NIwahl9 // um Fehler beim mergen zu vermeiden
save "L:\GLES\Gemeinsame Forschung\Two Levels\open ended questions\Wahlgrund_LTW_NI_Kategorien.dta", replace
